home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / sviluppo / pike-0.4.0 / examples / scripttest.pike < prev   
Text File  |  1997-01-10  |  349b  |  22 lines
  1. #!/usr/local/bin/pike
  2.  
  3. /*
  4.    This example requires example/host from
  5.    aminet:util/libs/script.lzh to be running.
  6. */
  7.  
  8. #include <stdio.h>
  9.  
  10. int
  11. main ()
  12. {
  13.   string s;
  14.  
  15.   arexx_host ("script-library-test");
  16.   arexx_export ("TESTVAR", "hi");
  17.   arexx_cmd ("testfunction");
  18.   s = arexx_import ("TESTVAR");
  19.   write ("Result = " + s + ".\n");
  20.   exit (0);
  21. }
  22.